home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / activedn / activedn.asp next >
Text File  |  1998-08-22  |  930b  |  33 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <%
  4.  
  5. ' ActiveDNS.asp 1.0
  6. ' (c) 1998, Activity Software 
  7. '
  8. ' Example of ActiveDNS using Active Server Pages.  This can be used
  9. ' on any server which ActiveDNS.DLL is registered.
  10. ' 
  11. ' This example is in VBScript.  For an example in JScript, please
  12. ' refer to ActiveDNS.js, which is designed for Microsoft Windows
  13. ' Scripting Host.
  14. '
  15.  
  16. Set dns = Server.CreateObject("ActiveDNS.Resolve")
  17.  
  18. Address = "127.0.0.1"
  19. Hostname = "localhost"
  20.  
  21. If dns.IsValidNumericAddress(Address) Then
  22.  Response.Write Address & " Is a valid numeric address.<BR>"
  23. Else
  24.  Response.Write Address & " Is not a valid numeric address.<BR>"
  25. End If
  26.  
  27. Response.Write "Host: " & Hostname & " resolves to address: " & _
  28.                             dns.Lookup(Hostname) & "<BR>"
  29.  
  30. Response.Write "Address: " & Address & " resolves to host: " & _ 
  31.                             dns.ReverseLookup(Address)  & "<BR>"
  32.  
  33. %>